System Booster/System Booster.iso/Screenblankers/GBlanker/Install

Text File | 1996-09-26 | 11KB | 319 lines

;; -*- lisp -*-
;; Garshneblanker Installation Script $VER:Garshneblanker 38.4 (18.10.94)
;;

(set newBlankerVersion (getversion "BGUI/Garshneblanker"))
(set newVer (/ newBlankerVersion 65536))
(set newRev (- newBlankerVersion (* newVer 65536)))

(set oldUserLevel (user 3))
(message
 "\nWelcome to the Garshneblanker " ("%ld.%ld" newVer newRev) " installer "
 "script.\n\nFollow the installer script's instructions to install "
 "Garshneblanker on your system. Once Garshneblanker is running, you can "
 "simply press the popup hotkey (which you'll specify later) to bring up its "
 "user interface."
 )

(set @last-compat-rev 7)
(set @default-dest "SYS:WBStartup")
(set @default-popkey "F9")
(set @default-blankkey "F10")
(set @default-timeout 180)
(set @interface-choice "BGUI")

(select
 (askchoice
  (prompt "One of the new features of Garshneblanker is your choice of "
          "user interface libraries. (Note: necessary libraries have not been "
          "included because of file size and/or distribution constraints.)")
  (choices "BGUI" "MUI")
  (help "The BGUI version requires bgui.library by Jan van den Baard. The MUI "
        "version requires muimaster.library by Stefan Stuntz.")

  )
 (set @interface-choice "BGUI")
 (set @interface-choice "MUI")
 )
(user oldUserLevel)

(set @default-dest
     (askdir
      (prompt "Where would you like Garshneblanker installed?")
      (help "The WBStartup directory on your boot disk is likely the best "
            "place to put blanker. This will insure that Garshneblanker is "
            "run automatically when you boot your computer.")
      (default @default-dest)
      )
     )

(working "Checking for previously installed version of Garshneblanker.")

(set newBlanker (tackon @interface-choice "Garshneblanker"))
(if (exists (tackon @default-dest "Blanker"))
    (set oldBlanker (tackon @default-dest "Blanker"))
    (set oldBlanker (tackon @default-dest "Garshneblanker")))

(set newBlankerVersion (getversion newBlanker))
(set newVer (/ newBlankerVersion 65536))
(set newRev (- newBlankerVersion (* newVer 65536)))

(if (exists oldBlanker)
    (set oldBlankerVersion (getversion oldBlanker))
    (set oldBlankerVersion (+ (* 65536 37) 0)))

(set oldVer (/ oldBlankerVersion 65536))
(set oldRev (- oldBlankerVersion (* oldVer 65536)))

(if (<= newBlankerVersion oldBlankerVersion)
    (if (NOT
         (askbool
          (prompt ("Version %ld.%ld of Garshneblanker already installed. Install version %ld.%ld?" oldVer oldRev newVer newRev))
          (default 0)
          (help "An equal or newer version of Garshneblanker is already "
                "installed. If you would like to install Garshneblanker "
                "anyhow, click 'Yes'. If you don't want to install "
                "Garshneblanker, click 'No'.")
          )
         )
        (abort "Equal or newer version of Garshneblanker already installed. "
               "Aborting.")
        )
    )

(delete oldBlanker)
(delete (tackon oldBlanker ".info"))

(if (< (/ (getversion) 65536) 39)
    (set @library-default "Libs/V37/Garshnelib.library")
    (set @library-default "Libs/V39/Garshnelib.library")
    )

(copylib
 (prompt "Copying Garshnelib.library to LIBS:")
 (help @copylib-help)
 (source @library-default)
 (dest "LIBS:")
 (confirm)
 )

(copyfiles
 (prompt ("Copying Garshneblanker to %s" @default-dest))
 (help @copyfiles-help)
 (source newBlanker)
 (dest @default-dest)
 )

(set oldUserLevel (user 3))
(select
 (askchoice
  (prompt "Which icon would you like to have installed for Garshneblanker?")
  (choices "Standard Workbench Icon" "Magic Workbench Icon" "NewIcons Icon")
  (help "The magic workbench icon is simply a larger, 8 color icon. The "
        "standard icon follows Commodore's 4 color and size standard. The "
        "NewIcons icon is from the NewIcons package and will adapt to your "
        "Workbench's color scheme (provided you are running the NewIcons "
        "program).")
  )
 (set @icon-choice "GadTools/Garshneblanker.info")
 (set @icon-choice "MUI/Garshneblanker.info")
 (set @icon-choice "BGUI/Garshneblanker.info")
 )
(user oldUserLevel)

(copyfiles
 (prompt ("Copying icon for %s" @default-dest))
 (help @copyfiles-help)
 (source @icon-choice)
 (dest @default-dest)
 )

(set @module-dest @default-dest)

(set @module-dest
     (askdir
      (prompt "Where would you like the Garshneblanker modules installed? (A "
              "directory named Blankers will be created in the directory you "
              "specify and the modules will be put there.)")
      (help "You can put the blankers anywhere and Garshneblanker will look "
            "for them there.")
      (default @module-dest)
      )
     )

(set blankersDir (tackon @module-dest "Blankers"))
(if (< oldRev @last-compat-rev) (run ("Delete %s" (tackon blankersDir "#?"))))

(copyfiles
 (prompt ("Copying Garshneblanker modules to %s" @module-dest))
 (help @copyfiles-help)
 (source "")
 (choices "Blankers")
 (dest @module-dest)
 )

(copyfiles
 (prompt ("Copying Preferences Interpreter to %s" @module-dest))
 (help @copyfiles-help)
 (source @interface-choice)
 (choices "PrefInterp")
 (dest blankersDir)
 )

(copyfiles
 (prompt ("Copying Info Display program to %s" @module-dest))
 (help @copyfiles-help)
 (source "GadTools")
 (choices "ShowInfo")
 (dest blankersDir)
 )

(set gblanker-path (tackon @default-dest "Garshneblanker"))

(tooltype
 (dest gblanker-path)
 (settooltype "BLANKERDIR" (tackon @module-dest "Blankers"))
 (noposition)
 )

(set @default-blankkey
     (askstring
      (prompt "What key-combination would you like to use to tell "
              "Garshneblanker to immediately blank the screen? (This key "
              "combination can be used after Garshneblanker is running to "
              "blank the screen.)")
      (help "When you press this combination of keys, Garshneblanker will "
            "tell the current module to blank the screen. This is a standard "
            "Commodities key-combination. This key-combination should be a "
            "text string.\n\nExamples:\nAlt Help, Shift F1, Ctrl a")
      (default @default-blankkey)
      )
     )

(tooltype (dest gblanker-path) (settooltype "BLANKKEY" @default-blankkey))

(select
 (askchoice
  (prompt "Garshneblanker will automatically blank the screen when you move "
          "the mouse pointer into a particular corner of the screen. Which "
          "corner would you like that to be?")
  (choices "None" "Upper Left" "Upper Right" "Lower Right" "Lower Left")
  (help "When the mouse pointer is moved into this corner of the screen, "
        "Garshneblanker will immediately blank the screen, as if you had "
        "pressed the blank key. This is similar to the AfterDark feature.")
  )
 (tooltype (dest gblanker-path) (settooltype "BLANKCORNER" "NONE"))
 (tooltype (dest gblanker-path) (settooltype "BLANKCORNER" "UPPERLEFT"))
 (tooltype (dest gblanker-path) (settooltype "BLANKCORNER" "UPPERRIGHT"))
 (tooltype (dest gblanker-path) (settooltype "BLANKCORNER" "LOWERRIGHT"))
 (tooltype (dest gblanker-path) (settooltype "BLANKCORNER" "LOWERLEFT"))
 )

(select
 (askchoice
  (prompt "Garshneblanker will disable the inactivity timeout when you move "
          "the mouse pointer into a particular corner of the screen. Which "
          "corner would you like that to be?")
  (choices "None" "Upper Left" "Upper Right" "Lower Right" "Lower Left")
  (help "This means that while the mouse pointer is in this corner of the "
        "screen, GBlanker won't blank the screen.")
  )
 (tooltype (dest gblanker-path) (settooltype "DONTCORNER" "NONE"))
 (tooltype (dest gblanker-path) (settooltype "DONTCORNER" "UPPERLEFT"))
 (tooltype (dest gblanker-path) (settooltype "DONTCORNER" "UPPERRIGHT"))
 (tooltype (dest gblanker-path) (settooltype "DONTCORNER" "LOWERRIGHT"))
 (tooltype (dest gblanker-path) (settooltype "DONTCORNER" "LOWERLEFT"))
 )

(set TimeOut
     (asknumber
      (prompt "How long should Garshneblanker wait before automatically "
              "blanking the screen. (This value is in seconds.)")
      (help "Garshneblanker will blank the screen if the number of seconds "
            "you specify pass without any user input occurring on your "
            "computer.")
      (default 180)
      )
     )

(tooltype (dest gblanker-path) (settooltype "TIMEOUT" ("%ld" TimeOut)))

(if
 (askbool
  (prompt "When Garshneblanker is set to choose a random module upon blanking "
          "would you like Garshneblanker to load and blank with a new module "
          "every so often?")
  (help "This will set the REPLACE tooltype to either YES or NO according to "
        "your response. If you choose YES, when Garshneblanker is set to "
        "choose a random module, it will load a new module after the interval "
        "specified in the RANDTIMEOUT tooltype has elapsed and the screen is "
        "still blanked.")
  (default 1)
  )
 (
  (tooltype (dest gblanker-path) (settooltype "REPLACE" "YES"))
  (set RandTimeout
       (asknumber
        (prompt "What would you like the interval between random blanker "
                "changes to be? (This value is in seconds.)")
        (help "While Garshneblanker is blanking the screen with a random "
              "module, it will load a new random module every time this "
              "time period elapses. This is set in the RANDTIMEOUT tooltype.")
        (default 30)
        )
       )
  (tooltype
   (dest gblanker-path)
   (settooltype "RANDTIMEOUT" ("%ld" RandTimeout))
   )
  )
 (tooltype (dest gblanker-path) (settooltype "REPLACE" "NO"))
 )

(set @default-popkey
     (askstring
      (prompt "What key-combination shall Garshneblanker use to pop up it's "
              "interface? (This key combination can be used after "
              "Garshneblanker is running to bring it's window to front.)")
      (help "This is a standard Commodities key-combination. When you press "
            "this combination of keys, Garshneblanker will open up its "
            "preferences window so that you can modify its settings. This "
            "key-combination should be a text string.\n\nExamples:\nAlt Help, "
            "Shift F1, Ctrl a")
      (default @default-popkey)
      )
     )

(tooltype (dest gblanker-path) (settooltype "CX_POPKEY" @default-popkey))

(if
 (askbool
  (prompt "Would you like Garshneblanker to open its window on startup?")
  (help "This will set the CX_POPUP tooltype to YES or NO depending on your "
        "response. This tooltype dictates whether or not Garshneblanker opens "
        "it's window when it first runs.")
  (default 1)
  )
 (
  (set cxPopUp "YES")
  (set popUpMsg "Garshneblanker will automatically bring up its interface after you have run it.")
  )
 (
  (set cxPopUp "NO")
  (set popUpMsg ("Garshneblanker will not automatically bring up its interface after you have run it. You will have to press the %s key-combination to make the interface come up." @default-popkey))
  )
 )

(tooltype (dest gblanker-path) (settooltype "CX_POPUP" cxPopUp))

(run "MakeDir ENV:PrefInterp")
(run "MakeDir ENVARC:PrefInterp")

(set oldUserLevel (user 3))
(message
 ("\nGarshneblanker is now installed in your %s directory. You can run it by double clicking on its icon. %s\n\nIf you have any questions at all, feel free to contact me via e-mail at:\n\[e-mail]" @default-dest popUpMsg)
 )
(user oldUserLevel)

(exit (quiet))